u n i t   v i r t u a l ; 
 
 
 
 i n t e r f a c e 
 
 
 
 u s e s 
 
     W i n d o w s ,   M e s s a g e s ,   S y s U t i l s ,   V a r i a n t s ,   C l a s s e s ,   G r a p h i c s ,   C o n t r o l s ,   F o r m s , 
 
     D i a l o g s ,   j p e g ,   E x t C t r l s ,   S t d C t r l s ; 
 
 
 
 t y p e 
 
     T F o r m 1   =   c l a s s ( T F o r m ) 
 
         I m a g e 1 :   T I m a g e ; 
 
         L a b e l 1 :   T L a b e l ; 
 
         L a b e l 2 :   T L a b e l ; 
 
         L a b e l 3 :   T L a b e l ; 
 
         L a b e l 4 :   T L a b e l ; 
 
         T i m e r 1 :   T T i m e r ; 
 
         p r o c e d u r e   T i m e r 1 T i m e r ( S e n d e r :   T O b j e c t ) ; 
 
     p r i v a t e 
 
         {   P r i v a t e   d e c l a r a t i o n s   } 
 
     p u b l i c 
 
         {   P u b l i c   d e c l a r a t i o n s   } 
 
     e n d ; 
 
 
 
 v a r 
 
     F o r m 1 :   T F o r m 1 ; 
 
     c o n t a d o r :   i n t e g e r ; 
 
     
 
 
 
 i m p l e m e n t a t i o n 
 
 
 
 u s e s   U n i t 2 ; 
 
 
 
 { $ R   * . d f m } 
 
 
 
 p r o c e d u r e   T F o r m 1 . T i m e r 1 T i m e r ( S e n d e r :   T O b j e c t ) ; 
 
 b e g i n 
 
     c o n t a d o r : = c o n t a d o r + 1 ; 
 
     i f   ( c o n t a d o r = 3 )   t h e n 
 
         b e g i n 
 
             F o r m 1 . H i d e ; 
 
             F o r m 2 . S h o w ; 
 
         e n d ; 
 
 e n d ; 
 
 
 
 e n d . 
 
 